Anzeige der Daten im DBGrid zur Laufzeit ändern

[Memo]

Code:

procedure TForm1.Table1NrGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
   case Table1Nr.AsInteger of
    0 : Text := 'geliefert';
    1 : Text := 'nicht gelefert';
   //..usw, usw
   end;
end;