source: branches/simple/Forms/FormConsole.pas

unit FormConsole;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Device;

type

  { TFormConsole }

  TFormConsole = class(TFormDevice)
    Memo1: TMemo;
  public
    procedure ConsoleWrite(Data: Byte);
  end;


implementation

{$R *.lfm}

procedure TFormConsole.ConsoleWrite(Data: Byte);
begin
  Memo1.Lines.Text := Memo1.Lines.Text + Chr(Data);
end;

end.