[NumLock]

Код:

type
  TLogin = record
    Driver: String;
  end;

function Super: TLogin;
begin
  Result.Driver:='Ok';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(Super.Driver);
end;