Var in einer Funktion über ein Button aufrufen !

[Butch87]

ich hoffe, du meinst das so...

Delphi-Quellcode:

procedure buttonclick(sender: TObject)
var Bla: String;
begin
  .
  Serial(Bla);
  .
  .
//  in bla steht nun 'Test, eins zwo...'
end;

procedure serial(var Test: String);
begin
  Test:= 'Test, eins zwo...'
  .
  .
  .
end;