Publicar parte de un objeto de clase

[jeliardo]

Cree la sigueinte funcion, sin embargo siempre me devuelve el resultado 1, no continuan con el ELSE. Alguien tiene una idea, son principiante.
Gracias

function SQLGetReEnvios (strMedResub : string) :string ;
var
strSQL : string;
begin
strSQL := 'SELECT MedReSub' + 'FROM Hcinsuranceclaimheader';
if strMedReSub = '' then
begin
result := '1';
end
Else
begin
result := '7';

end;

end;
end.