procedure TForm1.Button1Click(Sender: TObject);
var
F:file of char ;
S:array[1..11] of char;
i:integer;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
Reset(F);
Seek(F,16);
for i:=1 to 11 do
Read(F, S[i]); { Read first line of file }
Edit1.Text := S;
for i:=1 to 11 do
Write(F,S[i]);
CloseFile(F);
end;
end;