strona kodowa plikow tekstowych

Witam,
Napisalem sobie prograk w delphi do generowania plikow php pod stronke www (na podstawie tego co wyplikam w okienku, program tworzy odpowiednie menu oraz pliki ktora sa potem podlinkowywane w tym menu).

pliki php twoje normalnie przez rewrite(TF), problem polega na tym ze pliki po wrzuceniu na strone nie wyswietlaja poprawnie polskich znakow. dopiero po przekonwertowaniu pliku na odpowiednie kodowanie (editplusem, czy gzegzolka czy czymkolwiek), wszystko dziala ok.

jak w delphi stworzyc plik tekstowy z kodowaniem charset=iso-8859-2??

z gory dziekuje za pomoc

konwertując w locie znaki.

ok dajmy na to mam
s:='ąęćż';
Writeln(TF,s);

czy da sie calego stringa przekonwertowac (i czym to zrobic), czy musze znak po znaku (i czym to zrobic;P)?

k dalem rade:

function ConvertToIso(S: String): String;
var i: Integer;
begin
  for i := 1 to Length(S) do // WIN -> ISO
    case S[i] of
'Ą': S[i] := Chr(161);
'Ć': S[i] := Chr(198);
'Ę': S[i] := Chr(202);
'Ł': S[i] := Chr(163);
'Ń': S[i] := Chr(209);
'Ó': S[i] := Chr(211);
'Ś': S[i] := Chr(166);
'Ź': S[i] := Chr(172);
'Ż': S[i] := Chr(175);
'ą': S[i] := Chr(177);
'ć': S[i] := Chr(230);
'ę': S[i] := Chr(234);
'ł': S[i] := Chr(179);
'ń': S[i] := Chr(241);
'ó': S[i] := Chr(243);
'ś': S[i] := Chr(182);
'ź': S[i] := Chr(188);
'ż': S[i] := Chr(191);
    end;
  Result := S;
end;