diff --git a/exgui/Rcon.dfm b/exgui/Rcon.dfm
index f44f4a9..a033bf2 100644
Binary files a/exgui/Rcon.dfm and b/exgui/Rcon.dfm differ
diff --git a/exgui/Rcon.pas b/exgui/Rcon.pas
index c596ead..c8e8455 100644
--- a/exgui/Rcon.pas
+++ b/exgui/Rcon.pas
@@ -10,13 +10,16 @@ type
   TfmRcon = class(TForm)
     edInput: TEdit;
     moOutput: TMemo;
-    procedure edInputKeyPress(Sender: TObject; var Key: Char);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure edInputKeyPress(Sender: TObject; var Key: Char);
     procedure FormShow(Sender: TObject);
   private
     { Private declarations }
   public
-    { Public declarations }
+    Host: String;
+    Password: String;
+  protected
+    procedure CreateParams(var Params: TCreateParams); override;
   end;
 
 var
@@ -26,19 +29,37 @@ implementation
 
 {$R *.dfm}
 
-procedure TfmRcon.edInputKeyPress(Sender: TObject; var Key: Char);
+procedure Output(szOutput: PChar); stdcall;
 begin
-  // TODO: TfmRcon.edInputKeyPress
+  fmRcon.moOutput.Lines.Add(szOutput);
+end;
+
+procedure TfmRcon.CreateParams(var Params: TCreateParams);
+begin
+  inherited CreateParams(Params);
+  Params.ExStyle:= Params.ExStyle or WS_EX_APPWINDOW;
+  Params.WndParent:= GetDesktopWindow; 
 end;
 
 procedure TfmRcon.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  // TODO: TfmRcon.FormClose
+  Destroy;
+end;
+
+procedure TfmRcon.edInputKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then begin
+    if edInput.Text <> '' then begin
+      moOutput.Lines.Add('> ' + edInput.Text);
+      edInput.Text:= '';
+    end;
+    Key:= #0;
+  end;
 end;
 
 procedure TfmRcon.FormShow(Sender: TObject);
 begin
-  // TODO: TfmRcon.FormShow
+  Caption:= 'Remote Console - ' + Host;
 end;
 
 end.