FreePascal.ru

Раньше не работал с директориями.
Подскажите пожалуйста программу, в неё вводишь пути к двум папкам , и из первой во вторую копируются вложеные папки и файлы.
Названия и колличество файлов, папок не известно.

Входные данные :
C:\Новая папка 1
D:\Новая папка 2

Файлы и папки из "Новая папка 1 ...

При нажатии нескольких клавиш видит только одну.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
if key='w' then ...
if key='s' then ...
if key='o' then ...
if key='l' then ...
end;

Тоесть, клавиши работают ...

эта не подходит. мне нужна функция для проверки пересечения между обьектами (картинками прямоугольной формы)
нигде не нашёл, сам написал. если кому понадобится

function Intersect(R1:TImage ; R2:TImage): Boolean;
var x,y,kx,ky,a,b,ka,kb:integer;
begin
x:=r1.Width;
y&#58 ...

Подскажите функцию пересечения обьектов.
В PascalABC эта функция была intersect.
ob1.intersect(ob2) (boolean).