delphi
while (sbPeso.position >= StrToInt(edtArranque.Text )) do begin i := i +1; lbli.Caption := IntToStr(i); TablaPeso[i] := sbPeso.Position; if i >= MaxTabla then begin shape1.brush.Color := clWhite; break; end; end;
Con delphi directamente en windows si no mal recuerdo hay que hacer una llamada a un API de mensajes. Es lo mismo para Lazarus? La aplicacion es un pequeño demo que se ejecutara siempre en windows.
Como siempre se agradece la ayuda y su tiempo.