1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
var
  file: file of byte; // Die Variable für die e-mail Datei
  size: LongInt; // Variable für Größe der Datei in Byte(Kann auch Integer sein)
  sizeKB: Integer; // Variable für Größe der Datei in Kilobytes, optional
begin
     try
    AssignFile(file,'NameDerDatei+Endung'); // Verbindet mit der e-mail Datei
    Reset(file); // Öffnet die e-mail Datei
      size := FileSize(file); // Speichert die Größe der Datei in der Variable "size"
      sizeKB := size div 1024; //optional, falls Größe der Datei in KB benötigt wird
   finally 
   Closefile(file) // Schliesst die e-mail Datei
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm1.NMSMTP1Success(Sender: TObject);
 var groesse: file of byte;
     size: LongInt;
     sizeKB: Integer;
     i : integer;
begin
  begin
    try
    AssignFile(groesse,'SendeZeit'); // Verbindet mit der e-mail Datei
    Rewrite(groesse); // Öffnet die e-mail Datei
    size := FileSize(groesse); // Speichert die Größe der Datei in der Variable "size"
    ProgressBar1.Max := Size;
    for i := 0 to Size do
    begin
      Sleep(80);
      ProgressBar1.Position := i;
      Application.ProcessMessages;
    end;
    ProgressBar1.Position := 0;
    sizeKB := size div 1024; //optional, falls Größe der Datei in KB benötigt wird
    finally
    Closefile(groesse); // Schliesst die e-mail Datei
    Showmessage('Nachricht wurde erfolgreich an '+Edit2.Text+' versendet');
    Edit1.Clear;
    Edit2.Clear;
    Edit3.Clear;
    Memo1.Clear;
    ListBox1.Clear;
    Edit1.SetFocus;
  end;
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

AssignFile(groesse,'SendeZeit.dat');
    Rewrite (groesse);
    size := FileSize(groesse);
    sizeKB := size div 1024;
    ProgressBar1.Max := Size;
    for i := 0 to Size do
    begin
      Sleep(10);
      ProgressBar1.Position := i;
      Application.ProcessMessages;
    end;
    ProgressBar1.Position := 0;					

1:

writeln (groesse,Edit1.Text);