Процедура ()

[GAGARIN-NEW]

procedure createnewrichedit(name,entertext:st ring);
var newTab: TTabSheet;
newrich: TRichedit;
begin
newTab:=TTabSheet.Create(Self);
newTab.Parent:=form1.PageControl1;
newTab.PageControl:=form1.PageContr ol1;
newTab.Caption:=name;
newTab.ImageIndex:=form1.PageContro l1.PageCount-1;
form1.PageControl1.ActivePage :=newTab;
newrich := TRichedit.Create(Self);// а вот тут уже не матерится на self
TWinControl(newrich).Name:= 'rich'+inttostr(form1.PageControl1. PageCount-1);
TWinControl(newrich).Parent:= newTab;
newrich.Align := alClient;
newrich.Text:='';
newrich.ReadOnly:=true;
newrich.ScrollBars:=ssvertical;
AddColoredLine(newrich,entertext,Cl Red);
end;

в 1 проекте в событии буттонклик работает тут в процедуре отказывается .... матерится по поводу переменной self (говорит что нету такой переменной ...), я так понимаю это и не переменная ... это какбы указатель на себя , как мне правильно написать чтобы компилятор не матерился и было правильно ???

[PAVEL315]

Разве для TabSheet возможно create? В смысле того, применимо ли этого для него:? Может быть надо использовать Add? Или я что-то путаю???

[_Dmitry]

Правильно матерится, эта же процедура не является методом класса Form1. Поэтому вместо Self пиши название контейнера, где создаешь объекты - Form1

[GAGARIN-NEW]

Ура ! Спасибо Работает (тоесть не матерится компилятор)