procedure TForm1.SpeedButton1Click(Sender: TObject);
var i,j : integer;
begin
 if OpenPictureDialog1.Execute then
 Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
 for i := 1 to image1.Height do
 Label1.Caption := inttostr(i);
 for j := 1 to image1.Width do
 Label3.Caption := inttostr(j);
end