for i:=0 to Form1.ComponentCount-1 do begin
   Top := SuperVcl_GetTop(Form1.Components[i]);
   Left := SuperVcl_GetLeft(Form1.Components[i]);
   ..................................
end;

function SuperVcl_GetTop(c: Classes.TComponent): integer;
var
   cn: string; {class_name}
begin
   cn := LowerCase(c.ClassName);
   if cn='tlabel' then
      result := TLabel(c).Top
   else if cn='tbutton' then
      result := TButton(c).Top
   else if cn='tedit' then
      result := TEdit(c).Top
   else if cn='tmemo' then
      result := TMemo(c).Top
   else if cn='tcheckbox' then
      result := TCheckBox(c).Top
   else begin
      raise Exception.Create('Error SuperVcl_GetTop: invalid class ('+cn+')');
   end;
end;

function SuperVcl_GetLeft(c: Classes.TComponent): integer;
var
   cn: string; {class_name}
begin
   cn := LowerCase(c.ClassName);
   if cn='tlabel' then
      result := TLabel(c).Left
   else if cn='tbutton' then
      result := TButton(c).Left
   else if cn='tedit' then
      result := TEdit(c).Left
   else if cn='tmemo' then
      result := TMemo(c).Left
   else if cn='tcheckbox' then
      result := TCheckBox(c).Left
   else begin
      raise Exception.Create('Error SuperVcl_GetLeft: invalid class ('+cn+')');
   end;
end;

...................................