procedure TForm7.Button1Click(Sender: TObject); var family:string; .............. family:='petrov'; .................