Inkompatible Typen TFieldGetTextevent und String

[Barny]

Ich will die Spaltenanzeige eines TDBGrids zur Laufzeit erzeugen.

Folgendes funktioniert bereits (stark vereinfacht):

Code:

dbgrdTest.Columns.Add;
dbgrdTest.Columns[0].FieldName := 'Datenbankname';
dbgrdTest.Columns[0].Title.Caption := 'Anzeigename';
dbgrdTest.Columns[0].Width := 100;

Jetzt will ich zur Laufzeit dieser Spalte ein OnGetText-Ereignis zuweisen um aus dem Datenbank-Wert z.B. 'U' die Anzeige 'Erledigung durch Übernahme' im Grid zu machen. Die procedure hierzu sieht wie folgt aus:

Code:

procedure TDataModulQuerySteuernummer.ErledigungVLGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  Text := 'Erledigung durch Übernahme';
  DisplayText := True;
end;

Mein Versuch

Code:

dbgrdTest.Columns[0].Field.OnGetText := 'DataModulQuerySteuernummer.ErledigungVLGetText';

scheitert mit dem Fehlerhinweis

Inkompatible Typen: 'TFieldGetTextEvent' und 'String'

Mir ist jetzt nicht klar, wie ich der Spalte das OnGetText-Ereignis zuweisen kann.
Mit meinem Wissen komme ich nicht weiter. Wer kann mir einen Lösungsweg aufzeichnen?

Gruss
Barny

[DeddyH]

Sofern beide Methoden aufrufkompatibel sind:dbgrdTest.Columns[0].Field.OnGetText := DataModulQuerySteuernummer.ErledigungVLGetText; Einfach die Hochkommata weglassen.