uses dialogs; begin showmessage('Привет!'); end.

37 - влево
38 - вверх
39 - вправо
40 - вниз

{$APPTYPE CONSOLE}
uses SysUtils, Windows; //Windows - модуль с WinAPI-функциями
var
    r:Cardinal;
    gc:INPUT_RECORD; //Запись с данными события
    handle:THANDLE; //Указатель
begin
    handle:=GetStdHandle(STD_INPUT_HANDLE); //Получаем указатель на стандартное устройство ввода
    repeat //Бесконечный цикл
      ReadConsoleInput(handle, gc, 1, r); //Читаем из устройства ввода ровно 1 запись в запись gc
      case gc.EventType of //Обрабатываем событие
      //Если сработало событие клавиатуры
      1: if gc.Event.KeyEvent.bKeyDown then //...Если кнопка была НАЖАТА... Дело в том, что генерируется два события - кнопка нажата и отпущена, по-очереди...
           Writeln('Key: wVirtualKeyCode= '+inttostr(gc.Event.KeyEvent.wVirtualKeyCode) //Код клавиши
                   +', wVirtualScanCode= '+inttostr(gc.Event.KeyEvent.wVirtualScanCode)); //Скан-код
      //Если сработало событие мыши
      2: begin
           writeln('Mouse: X='+inttostr(gc.Event.MouseEvent.dwMousePosition.X) //X-координата
                   +', Y='+inttostr(gc.Event.MouseEvent.dwMousePosition.Y)); //Y-координата
           case gc.Event.MouseEvent.dwButtonState of
           0: begin end; //Ни одна кнопка мыши не нажата
           1: writeln('Left mouse button pressed'); //Левая кнопка удерживается нажатой
           2: writeln('Right mouse button pressed'); //Правая кнопка
           4: writeln('Middle mouse button pressed'); //Средняя кнопка
           else writeln('Other mouse button pressed'); //У мыши может быть много кнопок
           end;
         end;
      //В других случаях (честно, не знаю номера событий, методом тыка подбирал)
      //Так что, возможно, в более сложных случаях придётся изменять этот CASE
      else if gc.Event.FocusEvent.bSetFocus then writeln('Have focus :)') //Если получили фокус
           else writeln('Lose focus :('); //И если потеряли
      end;
    until false;
end.

{$APPTYPE CONSOLE}
uses CRT32;
var key: Char;
begin
   repeat
     key:=readkey;
     case key of
     #72: writeln('Up!');
     #77: writeln('Left!');
     #80: writeln('Down!');
     #75: writeln('Right!');
     #27: exit; //Escape
     end;
   until false;
end.

procedure ShowMessage(const Msg: string);
begin
   ShowMessagePos(Msg, -1, -1);
end;

procedure ShowMessagePos(const Msg: string; X, Y: Integer);
begin
   MessageDlgPos(Msg, mtCustom, [mbOK], 0, X, Y);
end;

function MessageDlgPos(const Msg: string; DlgType: TMsgDlgType;
   Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Integer;
begin
   Result := MessageDlgPosHelp(Msg, DlgType, Buttons, HelpCtx, X, Y, '');
end;

function MessageDlgPosHelp(const Msg: string; DlgType: TMsgDlgType;
   Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer;
   const HelpFileName: string): Integer;
begin
   with CreateMessageDialog(Msg, DlgType, Buttons) do
     try
       HelpContext := HelpCtx;
       HelpFile := HelpFileName;
       if X >= 0 then Left := X;
       if Y >= 0 then Top := Y;
       if (Y < 0) and (X < 0) then Position := poScreenCenter;
       Result := ShowModal;
     finally
       Free;
     end;
end;

function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType;
   Buttons: TMsgDlgButtons): TForm;
const
   mcHorzMargin = 8;
   mcVertMargin = 8;
   mcHorzSpacing = 10;
   mcVertSpacing = 10;
   mcButtonWidth = 50;
   mcButtonHeight = 14;
   mcButtonSpacing = 4;
var
   DialogUnits: TPoint;
   HorzMargin, VertMargin, HorzSpacing, VertSpacing, ButtonWidth,
   ButtonHeight, ButtonSpacing, ButtonCount, ButtonGroupWidth,
   IconTextWidth, IconTextHeight, X, ALeft: Integer;
   B, DefaultButton, CancelButton: TMsgDlgBtn;
   IconID: PChar;
   TextRect: TRect;
begin
   Result := TMessageForm.CreateNew(Application);
   with Result do
   begin
     BiDiMode := Application.BiDiMode;
     BorderStyle := bsDialog;
     Canvas.Font := Font;
     KeyPreview := True;
     OnKeyDown := TMessageForm(Result).CustomKeyDown;
     DialogUnits := GetAveCharSize(Canvas);
     HorzMargin := MulDiv(mcHorzMargin, DialogUnits.X, 4);
     VertMargin := MulDiv(mcVertMargin, DialogUnits.Y, 8);
     HorzSpacing := MulDiv(mcHorzSpacing, DialogUnits.X, 4);
     VertSpacing := MulDiv(mcVertSpacing, DialogUnits.Y, 8);
     ButtonWidth := MulDiv(mcButtonWidth, DialogUnits.X, 4);
     for B := Low(TMsgDlgBtn) to High(TMsgDlgBtn) do
     begin
       if B in Buttons then
       begin
         if ButtonWidths[B] = 0 then
         begin
           TextRect := Rect(0,0,0,0);
           Windows.DrawText( canvas.handle,
             PChar(LoadResString(ButtonCaptions[B])), -1,
             TextRect, DT_CALCRECT or DT_LEFT or DT_SINGLELINE or
             DrawTextBiDiModeFlagsReadingOnly);
           with TextRect do ButtonWidths[B] := Right - Left + 8;
         end;
         if ButtonWidths[B] > ButtonWidth then
           ButtonWidth := ButtonWidths[B];
       end;
     end;
     ButtonHeight := MulDiv(mcButtonHeight, DialogUnits.Y, 8);
     ButtonSpacing := MulDiv(mcButtonSpacing, DialogUnits.X, 4);
     SetRect(TextRect, 0, 0, Screen.Width div 2, 0);
     DrawText(Canvas.Handle, PChar(Msg), Length(Msg)+1, TextRect,
       DT_EXPANDTABS or DT_CALCRECT or DT_WORDBREAK or
       DrawTextBiDiModeFlagsReadingOnly);
     IconID := IconIDs[DlgType];
     IconTextWidth := TextRect.Right;
     IconTextHeight := TextRect.Bottom;
     if IconID <> nil then
     begin
       Inc(IconTextWidth, 32 + HorzSpacing);
       if IconTextHeight < 32 then IconTextHeight := 32;
     end;
     ButtonCount := 0;
     for B := Low(TMsgDlgBtn) to High(TMsgDlgBtn) do
       if B in Buttons then Inc(ButtonCount);
     ButtonGroupWidth := 0;
     if ButtonCount <> 0 then
       ButtonGroupWidth := ButtonWidth * ButtonCount +
         ButtonSpacing * (ButtonCount - 1);
     ClientWidth := Max(IconTextWidth, ButtonGroupWidth) + HorzMargin * 2;
     ClientHeight := IconTextHeight + ButtonHeight + VertSpacing +
       VertMargin * 2;
     Left := (Screen.Width div 2) - (Width div 2);
     Top := (Screen.Height div 2) - (Height div 2);
     if DlgType <> mtCustom then
       Caption := LoadResString(Captions[DlgType]) else
       Caption := Application.Title;
     if IconID <> nil then
       with TImage.Create(Result) do
       begin
         Name := 'Image';
         Parent := Result;
         Picture.Icon.Handle := LoadIcon(0, IconID);
         SetBounds(HorzMargin, VertMargin, 32, 32);
       end;
     TMessageForm(Result).Message := TLabel.Create(Result);
     with TMessageForm(Result).Message do
     begin
       Name := 'Message';
       Parent := Result;
       WordWrap := True;
       Caption := Msg;
       BoundsRect := TextRect;
       BiDiMode := Result.BiDiMode;
       ALeft := IconTextWidth - TextRect.Right + HorzMargin;
       if UseRightToLeftAlignment then
         ALeft := Result.ClientWidth - ALeft - Width;
       SetBounds(ALeft, VertMargin,
         TextRect.Right, TextRect.Bottom);
     end;
     if mbOk in Buttons then DefaultButton := mbOk else
       if mbYes in Buttons then DefaultButton := mbYes else
         DefaultButton := mbRetry;
     if mbCancel in Buttons then CancelButton := mbCancel else
       if mbNo in Buttons then CancelButton := mbNo else
         CancelButton := mbOk;
     X := (ClientWidth - ButtonGroupWidth) div 2;
     for B := Low(TMsgDlgBtn) to High(TMsgDlgBtn) do
       if B in Buttons then
         with TButton.Create(Result) do
         begin
           Name := ButtonNames[B];
           Parent := Result;
           Caption := LoadResString(ButtonCaptions[B]);
           ModalResult := ModalResults[B];
           if B = DefaultButton then Default := True;
           if B = CancelButton then Cancel := True;
           SetBounds(X, IconTextHeight + VertMargin + VertSpacing,
             ButtonWidth, ButtonHeight);
           Inc(X, ButtonWidth + ButtonSpacing);
           if B = mbHelp then
             OnClick := TMessageForm(Result).HelpButtonClick;
         end;
   end;
end;