Adressbuch, aber...

[Wessiiii]

Scheint zu funzen, dankeee

Leider doch nicht ^^
Wenn ich jetzt auf Speichern klicke, macht er einfach NIX

Delphi-Quellcode:

procedure TForm3.BT_SPEICHERN_NEUClick(Sender: TObject);
var     i: integer;
begin
        if sender = Form1.BT_NEU then
                begin
                if SD_SPEICHERN.Execute then
                        begin
                        SetLength(Kontakte, (length(kontakte)+1));
                        Kontakte[High(Kontakte)].Vorname := ED_VORNAME_NEU.Text;
                        Kontakte[High(Kontakte)].Nachname := ED_NACHNAME_NEU.Text;
                        Kontakte[High(Kontakte)].Geb_datum := ED_GEB_NEU.Text;
                        Kontakte[High(Kontakte)].Telefon_p := ED_TELE_PRIV_NEU.Text;
                        Kontakte[High(Kontakte)].Telefon_d := ED_TELE_DIENST_NEU.Text;
                        Kontakte[High(Kontakte)].Mobil := ED_HANDY_NEU.Text;
                        Kontakte[High(Kontakte)].EMail := ED_EMAIL_NEU.Text;
                      try
                        AssignFile(datei, SD_SPEICHERN.FileName);
                        ReWrite(datei);
                        for i:=0 to High(Kontakte) do
                                begin
                                Write(datei, Kontakte[i]);
                                end;
                        AssignFile(pfad,'C:\pfad.txt' );
                        ReWrite(pfad);
                        WriteLn(pfad, SD_SPEICHERN.FileName);
                        CloseFile(pfad);
                       except
                        MessageDlg('Fehler beim schreiben der Datei', mtError, [mbOK], 0);
                       end;
                end;
        end;

        if sender = Form1.BT_BEARBEITEN then
                begin
                if SD_SPEICHERN.Execute then
                        begin
                        Kontakte[Unit1.selected_row].Vorname := ED_VORNAME_NEU.Text;
                        Kontakte[Unit1.selected_row].Nachname := ED_NACHNAME_NEU.Text;
                        Kontakte[Unit1.selected_row].Geb_datum := ED_GEB_NEU.Text;
                        Kontakte[Unit1.selected_row].Telefon_p := ED_TELE_PRIV_NEU.Text;
                        Kontakte[Unit1.selected_row].Telefon_d := ED_TELE_DIENST_NEU.Text;
                        Kontakte[Unit1.selected_row].Mobil := ED_HANDY_NEU.Text;
                        Kontakte[Unit1.selected_row].EMail := ED_EMAIL_NEU.Text;
                        try
                        AssignFile(datei, SD_SPEICHERN.FileName);
                        ReWrite(datei);
                        for i:=0 to High(Kontakte) do
                                begin
                                Write(datei, Kontakte[i]);
                                end;
                        AssignFile(pfad,'C:\pfad.txt' );
                        ReWrite(pfad);
                        WriteLn(pfad, SD_SPEICHERN.FileName);
                        CloseFile(pfad);
                       except
                        MessageDlg('Fehler beim schreiben der Datei', mtError, [mbOK], 0);
                       end;
                end;
        end;



end;

Nochn Problem:
Ich will ne suche realisieren, die direkt bei der eingabe schon die unpassenden ergebnisse rausfiltert.
Ich hab mir das so vorgestellt, das ich mit ner for schleife von 1 (wegen fixedrow) bis rowcount durchgeh und jeden Eintrag auf eine evtl vrhandene Gleichheit überprüfe. Wenn er in der einen Row keine übereinstimmung gefunden hat soll er sie einfach löschen
Bei Backspace soll er halt wieder entsprechende Einträge hinzufügen

Habs grade probier aber ich schaffs einfach nicht :/

Mittlerweile brennen auch meine Augen ganz schön, weil ich seit ungf. 14 Uhr an dem Ding sitz.

Helft mir bitte!!!