[*Caro*]

Hola Salnhack, en ves de ExecSQl debes utilizar Open ya que no estas haciendo cambios sobre tu BD. Para recuperar el valor de tu consulta (FieldByName o Fields[indice de tu campo]).

Código Delphi [-]
with DataModule4.Query1 do
    begin
         Close;
         SQL.Clear;
         SQL.Add('select (um) from um where descum='+QuotedStr(suiDBLookupListBox1.SelectedItem));
  Open;

  Edit.Text := FieldByName('um').AsString; //si te devuelve mas de un valor debes recorrer tu dataset (Query)

Saluditos