dlaczego ta funkcja mi nie dziala ?
function Tresc(tekst : string) : string;
var i : integer;
nowy : string;
begin
for i := 0 to length(tekst) do
if (tekst[i] = #13)
then nowy := nowy + '<br>'
else nowy := nowy + tekst[i];
showmessage(nowy);
result := nowy;
end;