procedure TForm1.FormCreate(Sender: TObject);
begin
//X
    begin
      AssignFile(xplik3,'data/config/x.txt');
      Reset(xplik3);
      While not eof(xplik3) do
      begin
      ReadLn(xplik3, x3);
      end;
      CloseFile(xplik3);
    end;
begin
  Form1.Left := StrToInt(x);
end;