Creating a Chat Application (local) with Delphi-2

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var pt:TPoint;
begin
GetCursorPos(pt);
case key of
 VK_LEFT : SetCursorPos(pt.x-1, pt.y);
 VK_UP : SetCursorPos(pt.x, pt.y-1);
 VK_RIGHT : SetCursorPos(pt.x+1, pt.y);
 VK_DOWN :SetCursorPos(pt.x, pt.y+1);
 end;
end;