[delphi] richiamare valori da procedure diverse

[web ces]

esempio:
in una procedure definisco x = 'ciao'

var x : string;

procedure TForm1.ciao()
begin
x:='ciao';  {<- x = 'ciao'}
end;

vorrei richiamare x da un'altra procedure

procedure TForm1.ciao2()
var e : string;
begin
e := x + 'a tutti' {<- x = ''  !!!}
end;

come si fa?