procedure TForm1.Button1Click(Sender: TObject);
begin
{$I-}
chdir('c:\wawa');
if ioresult=0 then kész;
{$I+}
end;