procedure TForm1.Button1Click(Sender: TObject);
var
Pl : TWindowPlacement;
R: TRect;
begin
Pl.Length := SizeOf(TWindowPlacement);
GetWindowPlacement(Self.Handle, @Pl);
R := Pl.rcNormalPosition;

caption:=IntToStr(r.Left);
end;