Fórum Criando uma função... #250431

Criei a seguinte função, agora como posso chamar em outra procedure o resultado obtido na variavel LAN?

function TLancEstoqueForm.TipoLan(Lan: String): String;
var
Lan : String;
OpeItemQ : Query;
begin
OpeItemQ := Query.Create(NIL);
OpeItemQ.Close;
OpeItemQ.SQL.Clear;
OpeItemQ.SQL.Add(´Select * From OPERACAOITENS´);
OpeItemQ.SQL.Add(´Where ´);
OpeItemQ.SQL.Add(´OPI_CODOPERACAO = ´+Aspas(OpeDB.Text)+´ AND ´);
OpeItemQ.SQL.Add(´OPI_CODESTOQUE = ´+Aspas(EstoqueDB.Text));
OpeItemQ.Open;
Lan := OpeItemQ.FieldByName(´EOPI_TIPOLANCAMENTO´).AsString;
end;