[~TB~]

Не думаю, что указатели подходят для решения поставленной тобой задачи. обычно в таких случаях юзают:

Код:

function GetText(Edit: TEdit): string;
begin
  Result:='N/A';
  if Assigned(Edit) then
   Result:=Edit.Text;
end;

...

var
  Name : string;

begin
  Name:=GetText(Edit1);

...

И помни про ООП - пихай почти ВСЕ в классы!