Wer kann 2 kleine VCL Formulare in nonVCL umschreiben?

[Zacherl]

Ach so und wie macht man so etwas:

Delphi-Quellcode:

procedure TypeText(Text: string); stdcall;
var
  Line,
  i: integer;
begin
  //Eine neue Zeile hinzufügen und deren Index in Line speichern
  Form2.Memo1.Lines.Add('');
  Line := Form2.Memo1.Lines.Count -1;

  //Matrix Effekt: Die Zeichen des Strings werden nacheinander in "Line"
  //geschrieben, wobei eine Verzögerung von 50ms eingebaut ist,
  //wodurch ein "Tippeffekt" entssteht
  for i := 1 to length(Text) do
  begin
    Form2.Memo1.Lines[line] := Form2.Memo1.Lines[Line] + Copy(Text, i, 1);
    Sleep(50);
    Application.ProcessMessages;
  end;
end;