Table - gettext e settext como usar

// Paid é um campo Boolean. Este exemplo mostra uma * se for TRUE

// e quando o usuario digitar * modifica para TRUE

var

  Form1: TForm1;

implementation

procedure TForm1.Table1PaidGetText(Sender: TField; var Text: String; DisplayText: Boolean);

begin

  if (Sender as TBooleanField).Value then

    Text := '*'

  else

    Text := '';

end;

procedure TForm1.Table1PaidSetText(Sender: TField; const Text: String);

begin

  (Sender as TBooleanField).Value := Text = '*';

end;