Как создать метод класса в Delphi ?

В общем есть кнопка, которая работает с классом и в ней идет вывод непосредственно в объект МЕМО.
Если все это запихнуть в Constructor, то ругается что процедура не знает что такое МЕМО.
Как правильно организовать метод?

Вот кусок кода, который надо засунуть в метод:
var f:string;
begin
Memo1.Clear;
f:=Edit4.Text;
x:=head;
if ComboBox1.Text='По горороду' then
begin
while x<>Nil do
begin
if f=x.FCity then
Memo1.Lines.Add(x.FFam+' '+x.FCity+' '+x.FOrg);
x:=x.next;
end;

end;

if ComboBox1.Text='Вывести все' then
begin
while x<>Nil do
begin
Memo1.Lines.Add(x.FFam+' '+x.FCity+' '+x.FOrg);
x:=x.next;
end;

end;

if ComboBox1.Text='По организации' then
begin
while x<>Nil do
begin
if f=x.FOrg then
Memo1.Lines.Add(x.FFam+' '+x.FCity+' '+x.FOrg);
x:=x.next;
end;

end;
end;

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.