новый класс, созданный мной. delphi

[муська]

доброго времени суток!
подскажите, пожалуйста. создала свой класс TVIRT, у меня не получается с выводом распечатки в Memo1 на форме Form1. но в классе не позволено каким-либо компоментам присваивать значения.

вот процедура в отдельном классе

PROCEDURE TVIRT.PRINT_ADD_VERWIN(VAR GRAF: GRAF_TYPE);
var t: LREF; t1: TREF; c: string;
BEGIN
  t:=GRAF.HEAD;
  while t.NEXT<>nil do begin
//    c:=(IntToStr(t.key)+'('+IntToStr(t.COUNT)+')');
    Memo1.Lines.add(IntToStr(t.key)+'('+IntToStr(t.COUNT)+')'); // здесь ошибка, как ее исправить
    t1:=t.TRAIL;
    t1:=T1.NEXT;
  end;
END;

==================
а вот , что пишу на TForm1

PROCEDURE TFORM1.BTN1CLICK(SENDER: TOBJECT);
VAR T: LREF; T1: TREF;
BEGIN
  Q.ADD_VERWIN(GRAF, STRTOINT(EDT1.TEXT));
  MEMO1.CLEAR;
  EDT1.TEXT:='';
  Q.PRINT_ADD_VERWIN(GRAF);
END;

мне надо, чтобы в мемо выводились значения, которые ввожу в эдит, с помощью процедуры, написанной мною в отдельном классе.
___________________________________ ___
блин)) надеюсь, вопрос понятно поставила)

[Utkin]

Исправить

PROCEDURE TVIRT.PRINT_ADD_VERWIN(VAR GRAF: GRAF_TYPE);

на

PROCEDURE TVIRT.PRINT_ADD_VERWIN(VAR GRAF: GRAF_TYPE; var Memo: TMemo);

А также:

Memo1.Lines.add(IntToStr(t.key)+'(' +IntToStr(t.COUNT)+')');

на

Memo.Lines.add(IntToStr(t.key)+'(' +IntToStr(t.COUNT)+')');

Вызывать:

Q.PRINT_ADD_VERWIN(GRAF, Memo1);

[муська]

ааа.)))
спасибо большое)))

ой, а при запуске выдается следующая ошибка.

[Error] TVirt_PR.pas(250): Declaration of 'PRINT_ADD_VERWIN' differs from previous declaration

[Utkin]

Потому что нужно еще исправить декларацию класса выше (то есть место где заголовок процедуры класса). Ну это же основы - то есть где-то в классе есть объявление (скорее всего в разделе public. Там тоже надо исправить заголовок процедуры.

[муська]

точно.)) извиняюсь за глупый вопрос.