Чтение и запись информации из файла в мемо Delphi

[DEFENEK]

Дан файл и по нажатию на кнопку из него надо вывести в мемо все до символа ';' как это сделать?
Пытался сделать так

AssignFile(t,'/fail.txt');
    reset(t);
     while not eof(t) do
    begin
     readln(t,n);
    for readln(t,n) to n=(j) do
        begin
        memo1.Lines.Add(n);

но ни чего не получилось. Помогите пожалуйста.

[Greblin]

procedure TForm1.Button1Click(Sender: TObject);
var t: textfile;
    c: char;
begin
if OpenDialog1.Execute then
  begin
  AssignFile(t, OpenDialog1.FileName);
  reset(t);
  while not eof(t) do
    begin
    read(t, c);
    if c = ';' then break
    else
      Memo1.Text := memo1.Text + c;
    end;
  closefile(t);
  end;
end;

[DEFENEK]

Greblin спасибо все работает.