[Zorkov Igor]

Код:

var
  p: Pointer;
  ps: string;
begin
  p := Pointer(Form1.Caption);
  { TODO : Тут делаем всякие ужасные непотребства и т.д. }
  ps := String(p);
  Form1.Caption := ps + 'COOL';