Комментарии Delphi

[McFrey]

Доброго времени суток уважаемые программисты. Есть функция, которая позволяет получить из файла (по идее с программой на языке ObjectPascal) комментарии, которые там есть, вот такого вида:
оператор; // какие-то комментарии

begin
  FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  FileStream.Position := 0;
  SetLength(tmp, 2);
  old_last_true := false;
  while (FileStream.Position <> FileStream.Size) do
  begin
    FileStream.Read(Pointer(tmp)^, 2);

    if (tmp[1] = '/') and (tmp[2] = '/')  then
    begin
       ch := #0;
         while (FileStream.Position <> FileStream.Size) and (ch <> #10) do
      begin
        FileStream.Read(ch, 1);
        result := result + ch;
      end;
    result := result + #13;
    end;
FileStream.Free;
end;

А как сделать так, чтобы можно было получить комментарии еще и вот такого вида:
{ляляля
ляляля //(вот здесь это все еще комментарий в фигурных скобках) }

Т.е. чтобы можно было увидеть и //такие и {такие} комментарии?

[McFrey]

Вот код, чтобы выводил комментарии заключенные в фигурные скобки

if tmp[1] = '{' then
    begin
     ch:=#0;
     while ch<>'}' do
       begin
        FileStream.Read(ch, 1);
        if ch<>'}' then
        result := result + ch;
       end;
    result := result + #13;
    end;
   end;

А как их вот эти две части заставить работать вместе? У кого нибудь есть идеи?

[Mad_Cat]

    if (tmp[1] = '/') and (tmp[2] = '/')  then
    begin
       ch := #0;
         while (FileStream.Position <> FileStream.Size) and (ch <> #10) do
      begin
        FileStream.Read(ch, 1);
        result := result + ch;
      end;
    result := result + #13;
    end
else 
if tmp[1] = '{' then
    begin
     ch:=#0;
     while ch<>'}' do
       begin
        FileStream.Read(ch, 1);
        if ch<>'}' then
        result := result + ch;
       end;
    result := result + #13;
    end;
   end;

вроде так

[McFrey]

Mad_Cat, то что в фигурных скобках не выводит, могу весь проект дать, если есть желание посмотреть...
http://rghost.ru/41358106

[eval]

else
if tmp[1] = '{' then
    begin
     ch:=tmp[2];

[McFrey]

eval, все равно тоже самое, не выводит

P.S. в архиве с проектом файл ww.txt это вот для проверки...