jak

jak zrobic, zeby twozyl zakladki, a nanich memo richedit i servercoket lub clienstsocket?--miki

O to chodzi?

var
i: Integer;
begin
with PageControl1 do
for i := 0 to 9 do
with TTabSheet.Create(Self) do
begin
PageControl := PageControl1;
Caption := 'PageIndex: '+ IntToStr(Pages[i].PageIndex);
with TMemo.Create(Form1) do begin
Parent:=Pages[i];
left:=10*i;
top:=0;
width:=100;
height:=100;
end;
end;
end;

Z RichEdit i innymi analogicznie do Memo.--Jest jeszcze jeden błąd ... :)