Convierte a mayúsculas la cadena especificada.

Un ejemplo de utilización:

procedure TformAgregarPiezaDespiece.AceptarDespieceClick(Sender: TObject);

begin

  dm.TC3.Close;

  dm.TC3.SQL.Clear;

  dm.TC3.SQL.Add('SELECT Nombre FROM ' + vtTablaDespieces + ' WHERE upper(Nombre) = :pNombre');

  dm.TC3.ParamByName ('pNombre').DataType := ftString;

  dm.TC3.ParamByName ('pNombre').Value := AnsiUpperCase(EditNombre.Text);

  dm.TC3.Open;

end;

Funciones Delphi