Feldbezeichnung herausfinden

[Gelson62]

Hallo zusammen

Vielleicht bin ich ein bisschen blöd oder schon zu müde. Habe ein Problem.

Ich habe eine Tabelle (Kunden.DB) mit Feldern Name, Vorname, Datum1, Datum2, Datum3, datum4. In irgendeinem Feld (Datum1 bis Datum4) ist beispielsweise das Datum "13.08.2007" eingegeben. Wie finde ich jetzt heraus, in welchem Feld das Datum eingegeben ist?

Bis jetzt habe ich folgenden Code:

Delphi-Quellcode:

procedure TForm1.Button33Click(Sender: TObject);
var
Field1 : string;
begin

//Hilfstabelle löschen
Table4.First;
while table4.Eof = false do
   begin
     Table4.Delete;
   end;

with Query1 do  //alle Datensätze in Kunden.DB durchsuchen nach gewähltem Datum
  begin
    //SQL.Text := 'Select * from Kunde.DB where Request_Formular = :datum';
    Close;
    Params.ParamByName('datum').AsDateTime := Trunc(DateTimePicker4.Date);
    // RequestLive := True; // im Object Inspector gesetzt
    Open;
  end;


Query1.First;
While Query1.Eof = false do //gefundene Datensätze in Hilfstabelle füllen
   begin
      Table4.Edit;
      Table4.Insert;
      Table4.FieldByName('Name').AsString := Query1.FieldByName('Nachname').AsString;
      Table4.FieldByName('Task').AsString := Field1;
      Table4.Post;
      Query1.Next;
   end;
end;

Tabelle 4 hat die Felder Name und Task.

In der Tabelle Kunde.DB finde ich nun alle Datensätze welche das gesuchte Datum enthalten. Jetzt sollte ich aber wissen in welchem Feld das Datum eingegeben ist und den Feldnamen des betreffenden Feldes in eine Variable laden und in die Hilfstabelle einfügen.

Kann mir da jemand helfen.