проблема delphi 2009

[Ciberal]

Вот еще такая ошибка вылезла в куске E2029 Declaration expected but identifier 'GetCursorPos' found

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  ps,p: TPoint;


begin


  label17.Caption:=   intToStr(image1.Picture.Width);
  label18.Caption:=   intToStr(image1.Picture.Height);
 end;

  GetCursorPos(ps); 
  p:=Image1.ScreenToClient(ps);

видимо что-то стерлось, не пойму что.

[Neeter]

какой то код непонятный...
может так:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  ps,p: TPoint;
begin
  label17.Caption:=   intToStr(image1.Picture.Width);
  label18.Caption:=   intToStr(image1.Picture.Height);

  GetCursorPos(ps); 
  p:=Image1.ScreenToClient(ps);
 end;

Хотя, не знаю, может быть вы просто стерли немного...
А ошибка говорит, что пропущено описание или оператор, но вроде все нормально.

[Ciberal]

Гляди да, обрубки бывшего цикла остались. Моя не внимательность. Всем благодарен, вопрос закрыт.