var up1:Tup_loadcs;
str:string;
begin
up1:=Tup_loadcs.Create;
str:=up1.up(File1);
TextBox_title.Text:='UpLoad/'+str;
end;
var up1:Tup_loadcs;
str:string;
begin
up1:=Tup_loadcs.Create;
str:=up1.up(File1);
TextBox_title.Text:='UpLoad/'+str;
end;