Möchte in einem Programm ein einfachen Email oder Nachrichtensystem einbauen !!!

[Natcree]

Super Habs hinbekommen..

Delphi-Quellcode:

if idpop31.Connected then Nachrichtenliste:=idpop31.CheckMessages;
if Nachrichtenliste > 0 then
   begin
     for Index := Nachrichtenliste downto 1 do
       begin
         idmessage1.clear;
         idPOP31.RetrieveHeader(Index, IdMessage1);
         Form3.eltreestringgrid1.cells[0,index-1] := IdMessage1.From.Text;
         IdPOP31.Retrieve(index,idMessage1);
         Form3.eltreestringgrid1.cells[1,index-1]:= IdMessage1.Subject;
         IdPOP31.Retrieve(index,idMessage1);
         Form3.eltreestringgrid1.cells[2,index-1] := IdMessage1.body.GetText;
         {IdPOP31.Delete(index);}
       end;
     idmessage1.Free;
     IdPOP31.Disconnect;
     form3.show;
   end
 else
  IdPOP31.Disconnect; //Disconnected vom Server
end;

In der reihe sagt er mir variable Nachrichtenliste might not have been initialized
if Nachrichtenliste > 0 then Stimmt was nicht mit dem source oder ist es nur wegen dem if Befehl???