Var in einer Funktion über ein Button aufrufen !

[Delphiturbo]

Hallo

ich habe folgendes

Delphi-Quellcode:

function serial(user: string): string;
var:
s1: string // das will ich über ein Button aufrufen
...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text = serial(s1) then
begin
Form2.Show;
end;

Die Variable ist nicht in Button deklariert sondern nur in der Funktion
wie kann ich s1 in Button deklarieren ?