Problem E-Mail abholen und in ein StringGrid schreiben!

[Alterauge]

Hallo,

möchte gerne meine E-Mail's abholen und in ein StringGrid schreiben.

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var MailCount,intIndex :Integer;
    t,i:integer;
    s:string;
begin
      POP.Host := 'mail.*****.de';
      POP.Port := 110;
      POP.Username := '*****';
      POP.Password := '*****';
      POP.Connect;

      MailCount := POP.CheckMessages;

      if MailCount >0 then
      begin

          for intIndex := 1 to MailCount do
          begin
            msg.Clear;
             pop.Retrieve(intIndex, Msg);
             zaehler:= zaehler + 1;
              StringGrid1.RowCount:=StringGrid1.RowCount+1;
               StringGrid1.Cells[0,StringGrid1.RowCount-2]:= IntToStr(zaehler);
               StringGrid1.Cells[1,StringGrid1.RowCount-2]:=(Msg.From.Text);
               StringGrid1.Cells[1,StringGrid1.RowCount-2]:=(Msg.Subject);
             end;
             POP.Delete(intIndex);
          end;
  POP.Disconnect;
end;

Konnte mal eine E-Mail ins Grid schreiben ! Jetzt geht nix mehr?
Was habe ich alles falsch gemacht?

[Perlsau]

Keine Ahnung, was du falsch gemacht hast. Ist "Jetzt geht nix mehr?" eine Fehlermeldung deines Compilers oder eine Frage? Tja, wenn nichts mehr geht, dann kannst du nicht mehr setzen. Woher soll denn irgend jemand außer dir wissen, was du falsch gemacht hast, wenn außer dir niemand wissen kann, was du erwartest und was stattdessen geschieht? Offenbar gehst du davon aus, daß die Leser deiner Anfrage auch deine Gedanken zu lesen vermögen. Ich habe daran gewisse Zweifel ...

Von welchem Typ sind die Variablen Pop und msg?

Was machen eigentlich die Variablen t, i und s in deiner Methode?

Über all das sagt mir meine Glaskugel, die ich nicht einmal besitze, kein Sterbenswörtchen ...

[Alterauge]

So,

jetzt geht wieder alles!

Hier der Fehler:

Delphi-Quellcode:

               StringGrid1.Cells[1,StringGrid1.RowCount-2]:=(Msg.Subject);
            POP.Delete(intIndex);
          end;
      end;
  POP.Disconnect;
end;