[emii89]

Empezado por Caral

Hola
Las dos funcionan, la diferencia esta en que la primera DA la posivilidad de colocar decimales, cosa que no es correcta, en este caso.
El error es de conversion, no deberia darlo en ninguno de los dos casos.
Saludos

No debería, pero lo da... de hecho mirá lo que hice, para cambiar un poco:

Function TForm1.TransformaTiempo:Integer;
Var
  H,M,S:Integer;
Begin
  H:=StrToInt(EdHora.Text);
  M:=StrToInt(EdMin.Text);
  S:=StrToInt(EdSeg.Text);
  TransformaTiempo:=H*3600+M*60+S;
End;

procedure TForm1.BotApagarClick(Sender: TObject);
Var
  Tiempo:Integer;
begin
  Tiempo:=IntToStr(TransformaTiempo);
  MemoBat.lines.add('shutdown /s /t '+Tiempo);
  MemoBat.lines.SaveToFile(ExtractFilePath(Application.ExeName)+'Apagar.Bat');
  WinExec(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'),SW_SHOWNORMAL);
  Sleep(250);
  DeleteFile(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'));
  MemoBat.lines.clear;
end;

procedure TForm1.BotCancelarClick(Sender: TObject);
begin
  MemoBat.lines.add('shutdown -a');
  MemoBat.Lines.SaveToFile('c:\apagar.bat');
  WinExec(PChar('c:\apagar.bat'),SW_SHOWNORMAL);
  Sleep(600);
  DeleteFile(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'));
  MemoBat.lines.clear;
end;

procedure TForm1.Cerrar1Click(Sender: TObject);
begin
 Close;
end;

La línea que está en verde me dice que: [Error] Unit1.pas(57): Incompatible types: 'Integer' and 'String'