Files Delphi

Title: How to display a long path as c:...pathfile.txt
uses
FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
label1.Caption := MinimizeName(Opendialog1.FileName,
label1.Canvas, label1.Width);
end;