Ungleich darstellen

[Christian18]

hallo,

ich bins nochmal. ich wollte eigentlich das machen.

Delphi-Quellcode:

procedure TFPatEdit.ETitelEnter(Sender: TObject);
  var i : Integer;  // Schleifenvariable
begin
  ETitel.Items.Clear;
  DM.TTitel.First;
  for i:=1 to DM.TTitel.RecordCount do
    begin
      ETitel.AddItem(DM.TTitelTitel.AsString, ETitel);
      DM.TTitel.Next;
    end;
end;

procedure TFPatEdit.ETitelExit(Sender: TObject);
begin
  if
    ETitel.Text<>DM.TTitelTitel.AsString
  then
    begin
      if
        MessageDlg('Soll der Titel in der Datenbank hinzugefügt werden?',mtConfirmation,[mbYES,mbNO],0)=mrYes
      then
        begin
          DM.TTitel.Append;
          DM.TTitelTitel.AsString:=ETitel.Text;
          DM.TTitel.Post;
        end;
    end;
end;

funktioniert aber irgendwie nicht. achso DM ist ein Datenmodul. da liegen meine ganzen tables