как в мемо добавить в текущую строчку символ из переменной

[Kukkk]

У меня в ходе написания проги появился еще вопрос:
Прога должна получить из квиповского листа контактов номер,ник.
В квипе есть файлик,где все это хранится в виде

General;250728082;VeeMan;;;Wed Jun 06 2007 05:40:06
General;256487625;Артем 1245;;;Wed Jun 06 2007 05:39:01
General;257076142;Левый;;;Wed Jun 06 2007 05:39:01
General;305685979;Модератор 2;;;Wed Jun 06 2007 05:39:01
General;306429260;Ванек 1580;;;Wed Jun 06 2007 05:39:02
General;321452240;Ильдар 1580;;;Wed Jun 06 2007 05:39:01
General;346004794;Денис Грачев 1580;;;Wed Jun 06 2007 05:39:02

Как отсюда убрать все лишнее и добавить в мемо только номер ник?

Я пробовал вот так:

while not EOF(f) do
begin
repeat
read(f, buf); // читаем до ;
until buf=';' ;
repeat
read(f, buf); // надо прочесть до ; и добавить все это в одну строку в мемо, как сделать я не знаю.
until buf=';' ;
repeat
read(f, buf); // надо прочесть до ; и добавить все это в одну строку в мемо, как сделать я не знаю.
until buf=';' ;
readln(f);
end;

Вот что я своял,прошу подкорректируйте пожалуйста это чтобы работало,я новичек и пока не могу понять как сделать чтобы работало.

[Kukkk]

Вообще все сводится к тому,что я не знаю как в мемо добавить в текущую строчку символ из переменной=)

[satana]

Memo1.Lines.Add(str); где str твоя переменная которую ты хочешь добавить.

[mutabor]

Lines в Memo это массив из строк
Memo1.Lines[x]:='твоя строка';
при этом Мемо уже должен содержать не меньше чем x+1 строк

сначала подготовь все в переменной string, ав Мемо лучше заменяй уже готовую строку, меньше мороки, но можно и конкретный символ заменить, я просто не помню уже как

[Kukkk]

Спасибо mutabor! Я так пока и придумал=)) Щас попробую,отпешусь.

[Kukkk]

А как прочесть 1 символ из файла? Проверил read,он оказывается строчку читает.

[mutabor]

var
  f: TextFile;
  s,first: string;
begin
  AssignFile(f,'твой файл');
  Reset(f);
  ReadLn(f,s);
  first:=s[1];
  CloseFile(f);
end;