richedit +php code einfügen

[mav]

hi all

ich möchte gerne einen php code generieren lassen, jedoch kann ich die funktion nicht ausführen, will er mir einen Zugriffsfehler bringt..

Delphi-Quellcode:

procedure Tphp_mysql.Button1Click(Sender: TObject);
var
  code: string;
begin
code := '<?php' + #13#10
        +'$database='+Edit1.Text+' + #13#10
        +'$sqlhost='+Edit2.Text+'+ #13#10
        +'$sqluser='+Edit3.Text+'+ #13#10
        +'$sqlpass='+Edit4.Text+'+ #13#10
        +'?>';
with FNew.RichEdit1.CaretPos do
  FNew.RichEdit1.Lines.Add(code);
end
end;