[artem_lavrenuk]

Напешите все возможности выводу информации!

[NumLock]

в смысле это игра такая? один пользователь - один вариант или можно несколько? вот мои:
-Writeln
-WriteFile

[Pyro]

memo1.lines.add('информация');

[ryderx34]

Код:

ShowMessage('информация');
MessageDlg('информация', mtInformation, [mbOk], 0);

[Страдалецъ]

Код:

procedure TForm1.Button1Click(Sender: TObject);

begin
  with Printer do
  begin
    BeginDoc;
    Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
                    200, 200, Memo1.Lines.Text);
    EndDoc;
  end;

end;

[Bargest]

Какой, текстовой или любой? Если не только, то в общую кучу всякие BitBlt; StretchBlt; TextOut; LineTo;... mov [VideoBuf_addr], 12345;...