str_lst: TStringList;
...
fb_sp := nil;
str_lst := nil;
try
str_lst := TStringList.Create;
fb_sp := TIBServerProperties.Create(Self);
fb_sp.ServerName := 'SRV1/3050';
fb_sp.Active := True;
fb_sp.FetchVersionInfo;
str_lst.Add('Server Name: ' + fb_sp.ServerName);
str_lst.Add('Server Version: ' + fb_sp.VersionInfo.ServerVersion);
str_lst.Add('Server Implementation: ' + fb_sp.VersionInfo.ServerImplementation);
str_lst.Add('Service Version: ' + IntToStr(fb_sp.VersionInfo.ServiceVersion));
finally
ShowMessage(str_lst.Text); // <--- Should display info for FB 2x, but it's not.
fb_sp.Free;
end;