Foros Club Delphi - Storage Procedures

Estimados tengo este query pero me es complicado ponerlo en el codigo de viaul basic ya que es muy complejo me an dicho que lo puedo poner en un storage procedure y para eso tengo que utilizar el query analyzer este es mi codigo.

select r.*,isnull((selectTop 1 convert(varchar(30), [LogTime])from History as h where [UserID]= r.FingerID AND [FKey]='Entrada'and [LogDate] ='2011/06/01'),'NO DIGITO HUELLA') Entrada,
isnull((selectTop 1 convert(varchar(30), [LogTime])from History as h where [UserID]= r.FingerID AND [FKey]='Salida'and [LogDate] ='2011/06/01'),'NO DIGITO HUELLA') Salida
FROM(SELECT [Cod_per] CodPers
,[Cod_Finger] FingerID
,[DNI_per] DNI
,[ApePat_per] ApellidoPaterno
,[ApeMat_per] ApellidoMaterno
,[Nom_per] NombrePersonal
FROM T_Personal
where [NomProy_per] ='Claro'and NomArea_per ='Mantenimiento'and Estado_per ='Activo')r
OrderBy r.ApellidoPaterno, r.ApellidoMaterno;