1:
2:
3:
4:
5:
6:
7:

procedure myGotoXY;
// 0/0 ist der Ursprung des Textbildschirms
begin
  SpNr := ReadComWait;
  ZeNr := ReadComWait;
  GotoXY(SpNr,ZeNr);  // (x, y)
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

const
  maxLinien = 30;
  maxSpalten = 50;

var
  Form1: TForm1;
  SpNr, ZeNr: Byte;
  Ch: Char;
  Zeile: array[1..maxSpalten] of Char;
  ZStr: String; // muss wegen Memo1 vom Typ String sein!

procedure TForm1.FormActivate(Sender: TObject);
// Bildung eines "leeren" zweidimensionale Feldes von Zeichen
var
  i: Byte;
begin
  // max. Spaltenanzahl
  for i := 1 to maxSpalten do Zeile[i] := ' ';
  // max. Linienzahl
  for i := 1 to maxLinien do Memo1.Lines.Add(Zeile);
end;

procedure TForm1.WriteMemo(ZeNr, SpNr: Byte; Ch: Char);
// Zusammenfassung der GOTO-Anweisung mit dem Schreibvorgang
begin
  ZStr := Memo1.Lines[ZeNr];
  Insert(Ch, ZStr, SpNr);
  Memo1.Lines[ZeNr] := ZStr;
end;                    

1:
2:

  ZeNr := 10; SpNr := 15;
  WriteMemo(ZeNr, SpNr, 'X');