아래를 참고하시기 바랍니다..

procedure TForm1.Button1Click(Sender: TObject);
Var
   Loop : Integer;
begin
  For Loop:= 0 to ComponentCount-1 do
      If Components[Loop].ClassType = TButton then
         With Tcontrol(Components[Loop]) do
           Memo1.Lines.Add(Format('X=%d, Y=%d', [Left, Top]));
end;


* 요즘 점점 바뻐져서 자세한 답변이 안되서 죄송합니다..
  이러다가 답변을 아예 못올리게 될지도,,  쫍..

From 류..