[Delphi] Problem chyba z elseif

Mam taki kod:
begin
Input := TStringStream.Create('');
Output := TStringStream.Create('');
try
BitBtn1.Enabled := False; // zablokowanie przycisku

Input.WriteString(Format('nick=%s&haslo=%s&co=%s&baza=%s', [Edit1.Text, MaskEdit1.Text, co.Text, Memo1.Lines.Text]));
Forum.Post('http://localhost/~uplo/upload.php?action=create', // wyslanie danych ze strumienia do skryptu
Input, Output);

{ strumien Output przechwytuje odpowiedz serwera, czyli kod HTML jaki wyswietlil skrypt }

if Pos('error', Output.DataString) 0 then // jezeli wystapi taka linia
begin
BeginPos := Pos('error', Output.DataString)+5;
ErrCode := Copy(Output.DataString, BeginPos, Pos('error2', Output.DataString) - BeginPos);
MessageBox(Handle, PChar(Errcode), 'Wystąpił błąd podczas wysłania...', MB_OK + MB_ICONWARNING);
end

else Messagebox(Handle, 'Aktualizacja katalogu zakończona pomyslnie!',
'Dziękujemy...', MB_OK + MB_ICONINFORMATION);
finally
Input.Free;
Output.Free;
BitBtn1.Enabled := True;
end;
end;
i chciałbym, aby program gdy tak jak teraz wykrywa w strumieniu Output wyraz error to wyświetla komunikat zawarty pomiędzy error i error2 to teraz chce aby po wykryciu w Outpucie wyrazu np. baza żeby zapisywał do pliku (kasując dotychczasową zawartość) np. baza.txt wszystko w nie zmienionej postaci co jest pomiędzy wyrazem baza i baza2