+1 Andnotor

Sinon, pour rester dans le principe de son code :


procedure Ttest.btnTransClick(Sender: TObject);
var
UserDest : TStringList;
i : integer;
begin