Zapisywanie do pliku

Witam, napisalem taka procedurke i wydaje mi sie ze powinna dzialać a nie dziala ... Czy moze mi ktoś powiedziec dlaczego ??:

if RichEdit1.Lines.Text<>'' then
  begin
    MessageDlg('Czy zapisać zmiany w dokumencie ???', mtConfirmation,[mbYes, mbNo],0) = mrYes then
      begin
        Showmessage('zapisuje zmiany');
      end;
    else
      begin
        RichEdit1.lies.Clear;
      end;  
  end;

teraz juz powinna:

if RichEdit1.Lines.Text<>'' then
   begin
     if  (MessageDlg('Czy zapisać zmiany w dokumencie ???', mtConfirmation,[mbYes, mbNo],0) = mrYes) then
         begin
            Showmessage('zapisuje zmiany');
         end
      else
         begin
            RichEdit1.lines.Clear;
         end;
   end;

czytaj, co za błędy wyrzuca kompilator! wtedy będziesz wiedzieć co i w której linijce jest źle.

LUDZIE!!!!!!!! co to jest!!!!!!!!!!! Przepraszam, ale nie moglem sie powtrzymac od napisania tego!!! Czlowieku zastanow sie!!!!!!!!!!!

Tak to jest, jak ktoś po 10 godzinach siedzenia bez przerwy zaczyna pisać coś w delphi. W tym wypadku małe if miało wielkie znaczenie ;).

O dzieki wielkie czasem mi sie zdazaja takie superprogramistycnzego bugi :)

jak na kogos kto ma 460 posciaków to naprawde superbug :P