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

procedure TForm1.Button8Click(Sender: TObject);
var x,y:integer; towork:string;
begin
  offnen.Filter:='E-Mail|*.eml';
  if(offnen.execute)then
  begin
    maildatei:=offnen.filename;
    try
      //msg.clear;
      msg.LoadFromFile(offnen.filename);   <--- Fehler
    finally
      email.Lines:=msg.Body;
    end;