[Tonyy]

Код:

procedure TForm1.btspsClick(Sender: TObject);
var
  SPS:TSPS;
  openname:string;
begin
if Open.Execute then
    
  SPS:=TSPS.create(Open.FileName) else Exit;
  SPS.read;
 
  if Save.Execute then
  SPS.writetofile(Save.FileName) else begin sps.free; Exit; end;
  SPS.Free;
end;