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?