UNIT parte 2

Quero criar uma unit para validar este código:

var
Arq: String;
Str: TStringList;
begin
Str:= Nil;
Arq:= ExtractFilePath( Application.ExeName ) + ´Banco.hav´ ;

If FileExists( Arq ) then
begin
try
Str:= TStringList.Create;
Str.LoadFromFile( Arq );
DB.DatabaseName:= Trim( Str[0] );
finally
Str.Clear;
Str.Free;
end;
end;


Uma unit que trate o Application, pois está dando erro e eu nao sei como começar a cria r uma unit.
Tenho uma unit que trata isso só que é de um projeto que não tenho acesso aos fontes, por isso sei que é possível.