codice:
procedure TForm1.FormResize(Sender: TObject);
var i:integer;
begin
        tabcode.Height:=form1.Height - 130;
        tabcode.Width:=form1.Width-30;
        if indice > 0 then
        begin
                for i:=0 to indice do
                begin
                        ResizeText('RichText'+ inttostr(i));
                end;
        end;
end;