diff --git a/delphi/KPANSI.PAS b/delphi/KPANSI.PAS
index 7fb5db3..522f0f7 100644
--- a/delphi/KPANSI.PAS
+++ b/delphi/KPANSI.PAS
@@ -316,8 +316,8 @@ var
   Line: PTermLine;
 begin
   inherited Create(AOwner);
-  Width            := 640;
-  Height           := 400;
+  Width            := 660;
+  Height           := 450;
   Color            := clBlack;
   TabStop          := True;
   FCols            := 80;
@@ -328,14 +328,14 @@ begin
   FScrollback      := TList.Create;
   FAttrFG          := 7;
   FCellWidth       := 8;
-  FCellHeight      := 16;
+  FCellHeight      := 18;
   FBlinkOn         := True;
   FLastBlinkTick   := GetTickCount;
   FWrapMode        := True;
   FAllDirty        := True;
   { Set a monospace font -- OEM charset selected in CreatePaintFont }
   Font.Name  := 'Terminal';
-  Font.Size  := 9;
+  Font.Size  := 12;
   Font.Pitch := fpFixed;
 
   { Allocate initial screen lines }
diff --git a/delphi/TESTMAIN.PAS b/delphi/TESTMAIN.PAS
index 05f162c..0ba4778 100644
--- a/delphi/TESTMAIN.PAS
+++ b/delphi/TESTMAIN.PAS
@@ -87,8 +87,8 @@ begin
   inherited CreateNew(AOwner);
 
   Caption     := 'KPComm ANSI Terminal';
-  Width       := 660;
-  Height      := 460;
+  Width       := 780;
+  Height      := 560;
   BorderStyle := bsSingle;
 
   { Serial component }