[HolyDel]

Здарова, коль не шутишь.

1. Copy(строка,с_какого_символа,сколько_символов)

2.
В раздел Uses подключаешь Dialogs.

procedure TForm1.Button1Click(Sender: TObject);
var D:TOpenDialog;
begin
D:=TOpenDialog.Create(nil);
if D.Execute then
ShowMessage(D.FileName);
end;