tworzenie kilku przycisków

mam o to taki kod:

procedure TworzeniePrzyciskow(AHwnd:HWND); 
var 
 i:integer; 
begin 

 for i:=0 to 1 do 
 CreateWindowEx(0,'BUTTON','+',WS_CHILD or WS_VISIBLE,20 + i*40,15,20,20,AHwnd,501+i,hInstance,nil); 

end;

chcę aby na pierwszym przycisku wyświetlane było + a na drugim -

ktoś ma pomysł jak to zrobić bo mi nic nie przychodzi do głowy

captiony: array[0..2] of string = ('+', '-', 'whatever');

Może prościej

type
  TMyButton=class(TButton)
  private
  public
    procedure MyButtonClick(Sender:TObject);
    constructor Create(AOwner:TComponent);override;
    destructor Destroy;override;
  end;

var
  MyButton:array [1..2] of TMyButton;

...

procedure TMyButton.MyButtonClick(Sender:TObject);
begin
  if Sender=MyButton[1] then
    coś tam
  else
    coś tam innego
end;

...

procedure TMainForm.FormCreate(Sender: TObject);
var
  i:Integer;
begin
  for i:=1 to 2 do
  begin
    MyButton[i]:=TMyButton.Create(MainForm);
    MyButton[i].OnClick:=MyButton[i].MyButtonClick;
    if i=1 then
    begin
      MyButton[i].Caption:='+';
      MyButton[i].Top:=y;
      MyButton[i].Left:=x;
    end
    else
    begin
      MyButton[i].Caption:='-';
      MyButton[i].Top:=y1;
      MyButton[i].Left:=x1;
    end;
    MainForm.InsertControl(MyButton[i]);
  end;
end;

ok już se poradziłem o to kod:

procedure TworzeniePrzyciskow(AHwnd:HWND);
var
 i:integer;
const
 captiony: array[0..1] of string = ('+', '-');
begin
 for i:=0 to 1 do

 CreateWindowEx(0,'BUTTON',Pchar(captiony[i]),WS_CHILD or WS_VISIBLE,20 + i*40,15,20,20,AHwnd,501+i,hInstance,nil);
end;

dzięki za pomoc