Im trying to create an editor on the fly but nothing shows up. Can anyone tell me what im doing wrong? I dont get any compiler errors or runtime errors, just nothing.
var
SynEdit1 : TSynEdit;
procedure TForm1.Button1Click(Sender: TObject);
var
tf : Text;
s : String;
begin
SynEdit1 := TSynEdit.Create(Form1);
SynEdit1.Top := 180;
SynEdit1.Left := 50;
SynEdit1.Height := 330;
SynEdit1.Width := 500;
SynEdit1.Visible := true;
SynEdit1.Lines.Clear;
System.Assign(tf,'OldMain.pp');
Reset(tf);
While Not EOF(tf) do
Begin
ReadLn(tf,s);
SynEdit1.Lines.Add(s);
end;
System.Close(tf);
end;