[angvelem]

Что то в таком духе:

Код:

type
  TStudent = class
  private
    fFname,
    fFgroup : String
  public
    constructor Create(name, group : String);
    function Info(var name, var group : String): Boolean;
  end;

constructor TStudent.Create((name, group : String);
begin
  fFname := name;
  fFgroup := group;
end;

function TStudent.Info(var name, var group : String): Boolean;
begin
  name := fFname;
  group := fFgroup
  Result := (fFname <> '') and (fFgroup <> '');
end;

procedure Test;
var
  Student : TStudent;
  aname, agroup;
begin
  Student := TStudent.Create('Вася Пупкин', '1 группа');
  try
     if Student.Info(aname, agroup) then
       bla-bla-bla...
  finally
    Student.Free;
  end;
end;