1. Zeile in Memo wird überschrieben

[mfs]

Guten Morgen,

woran kann es bitte liegen, dass die 1.Zeile in Memo überschrieben wird, während die 2. und 3. nicht nicht?

Das ist ein Stück aus meinem Progrämmchen, bitte um Hilfe..

Delphi-Quellcode:

function TKonfigurtionDlg.pruefeEingaben: Boolean;
var ok:boolean;
begin
   ok:=true;
   Memo1.Clear;

   //Ist kein Attributname eingegeben worden?
   if(EditAttributname.Text='')then
   begin
      Memo1.Lines.Add('Sie haben keinen Attributnamen eingegeben!');
      EditAttributname.Color:=clYellow;
      ok:=false;
   end
   else EditAttributname.Color:=clWhite;

   //Ist keine Beschreibung eingegeben worden?
   if(EditBeschreibung.Text='')then
   begin
      Memo1.Lines.Add('Eine Beschreibung für dieses Attribute fehlt noch!');
      EditBeschreibung.Color:=clYellow;
      ok:=false;
   end
   else EditBeschreibung.Color:=clWhite;

   //Ist keine Kategorie ausgewaehlt worden?
   if(ListBox1.ItemIndex<0) then
   begin
      Memo1.Lines.Add('Welcher Kategorie soll dieses Attribut zugeordnet werden?');
      ListBox1.Color:=clYellow;
      ok:=false;
   end
   else ListBox1.Color:=clWhite;

   if(ok)then
      result:=True
   else
      result:=False;
end;

Viele Gruesse, mfs