1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

...

if ssh1.Checked then begin
                     fname3:=ExtractFileName(openfile1);
                     showmessage(fname3);
                     fname1:='';
                     l1:=length(fname3);
                     for z4:=0 to (l1-1) do begin
                                        fname1:=(fname1+fname3[z4]);
                                        showmessage(fname1);
                                        end;
                     showmessage(fname1+'h.roc');
                     //text1.Lines.SaveToFile(filename2+'h.roc');
                     end;

...