[ALexandr555]

Код:

begin
if GetNickFor(StrToInt(UIN)) = 'Пользователь не в списке' then
 begin
  TfrmMain.Nevspis(UIN);
 end;

на это ругаается [Error] Demo.pas(1936): This form of method call only allowed for class methods
не как не могу понять чем дело вот код процедуры TfrmMain.Nevspis

Код:

procedure TfrmMain.Nevspis(yin: string);
var
i: integer;
begin
for i := 0 to ICQpeg.PageCount - 1
do
if ICQpeg.Pages[i].hint = yin then begin
  Exit;
  end;

   TTabSheet.Create(ICQpeg);
   ICQts := TTabSheet.Create(ICQpeg);
   ICQts.PageControl := ICQpeg;
   ICQts.Parent := ICQpeg;
   ICQts.Caption := yin;
   ICQts.Hint := yin;
   ICQts.PageIndex := 0;
   ICQpeg.ActivePage := ICQts;

    TMemo.Create(ICQts);
    ICQmem := TMemo.Create(ICQts);

    TControl(ICQmem).Parent := ICQts;

    ICQmem.Align := alClient;
    ICQmem.Hint := yin;
    ICQmem.ScrollBars:= ssVertical;

[lmikle]

Данный способ вызова годится только для методов класса (помечены кючевым словом class в начале). Такие методы могут быть вызваны без создания экземпляра класса.

В твоем же случае имеет место быть обычный метод класса, который надо вызывать не у типа, а у объекта. Подозреваю, что достаточно написать так:

Код:

frmMain.Nevspis(UIN);

[ALexandr555]

Эх как сам не догадался, спасибо работает