다음을 참고하세요.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
  //TRightEdit = class(TEdit)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  Protected
    //procedure CreateParams(var Params: TCreateParams ); override;
  end;

type
TRightEdit = class(TEdit)
protected
   procedure CreateParams(var Params: TCreateParams ); override;
end;

var
  Form1: TForm1;
  RightEdit: TRightEdit;

implementation

{$R *.DFM}
var
  i:integer;

procedure TRightEdit.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style:=Params.Style or ES_RIGHT or ES_WANTRETURN;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RightEdit:=TRightEdit.Create(Self);
InsertControl(RightEdit);
RightEdit.Top:=10+i;
RightEdit.Left:=100;
RightEdit.Width:=150;
RightEdit.Font.Name:='굴림';
RightEdit.Font.size:=10;
RightEdit.SetFocus;
RightEdit.Text:='누가 만들었을까?';

i:=i+20;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  RightEdit.Destroy;
end;

end.