procedure TForm1.Button1Click(Sender: TObject);
var
adresar:string;
maska:string;
begin
screen.Cursor:=crHourGlass;
listbox1.Items.Clear;
adresar:=edit1.Text;
maska:=edit2.Text;
if adresar[length(adresar)]<>'\' then adresar:=adresar+'\';
Najdi(adresar+maska);
screen.Cursor:=crDefault;
end;
A to je pro dnešek vše. Příště se mimo jiné znovu trochu podíváme na práci s internetem v našich aplikacích.